﻿Imports DTO
Imports DAO

Public Class BaoCaoTonBUS
    Public Sub Them(ByVal bctDTO As BaoCaoTonDTO)
        Dim bctDAO As New BaoCaoTonDAO
        bctDAO.Them(bctDTO)
    End Sub

    Public Function TimKiem_TheoThangNam(ByVal thang As Integer, ByVal nam As Integer) As IQueryable(Of Object)
       Dim bctDAO As New BaoCaoTonDAO
        Return bctDAO.TimKiem_TheoThangNam(thang, nam)
    End Function
End Class
